PC Player 2004 May/pc player 2004-05.iso/Demos/FarCry/Data1.cab/_3DF914F542DC4B32AB781778AF16EA19

Text File | 2004-01-06 | 7.6 KB | 216 lines

Script:LoadScript("scripts/GUI/HudCommon.lua");

Hud.objectives={};

function Hud:PushObjective(pos,text)
    --check if the objective is already present
    for i,val in self.objectives do
        if(val.text==text)then
            return
        end
    end
    self.objectives[getn(self.objectives)+1]={pos=new(pos),text=text,completed=nil}
end
-----------------------------------------------------------------------------
function Hud:FlashObjectives()
    self.objectives={}
end

-- [marco] remove it based on objective name
-----------------------------------------------------------------------------
function Hud:CompleteObjective(text)
    for i,val in self.objectives do
        if(val.text==text)then
            val.completed=1;
            -- break --in editor mode, there can be more than 1 with the same name
        end
    end
end


-----------------------------------------------------------------------------
function Hud:OnInit()
    System:Log("Hud:OnInit()");
    -- concentration
--    if (s_SFXVolume) then
--        g_GlobalSFXVolume=tonumber(s_SFXVolume);
--    else
--        g_GlobalSFXVolume=0;
--    end

    self:CommonInit();
end
-----------------------------------------------------------------------------
function Hud:OnUpdate()
    local player=_localplayer;

    -- Update Dynamic music.
    self:UpdateDynamicMusic();

    -- [marco] The environment can be affected by lightning, which blinds any player
    -- using Night Vision for a brief period. In case of the night vision
    -- is done in the above call.
    if(tonumber(cl_display_hud)~=0)then
        if(player and player.classname=="Player")then

            ClientStuff.vlayers:DrawOverlay();


            -- [kirill] blinding player with flashlight

            local    scrPos =player.cnt:GetBlindScreenPos();
            local curBlind = 10;
            local curW = 200;
            local curH = 150;

            while( scrPos ~= nil ) do
                curBlind = scrPos.z;
                curW = 200 + 450 * curBlind;
                curH = 150 + 450 * curBlind;
    --            System:DrawImageColor( self.flashlight_blinding, scrPos.x-curW*.5, scrPos.y-curH*.5, curW, curH, 5, curBlind,curBlind,curBlind,curBlind);
                System:DrawImageColor( self.flashlight_blinding, scrPos.x-curW*.5, scrPos.y-curH*.5, curW, curH, 4, 1, 1, 1, curBlind);
                scrPos = player.cnt:GetBlindScreenPos();
            end

              -- Display on screen damage fx
            if(hud_screendamagefx == "1" and g_gore ~= "0") then
              if (not ClientStuff.vlayers:IsActive("SmokeBlur") and not ClientStuff.vlayers:IsFading("SmokeBlur")) then
                -- check damage/hits...
                if(self.hitdamagecounter>0) then
                  -- [tiago] testing blury/bloody screen fx
                  System:SetScreenFx("ScreenBlur", 1);
                  self.hitdamagecounter=self.hitdamagecounter - _frametime*3.5;
                  System:SetScreenFxParamFloat("ScreenBlur", "ScreenBlurAmount", self.hitdamagecounter/10.0);
                else
                  System:SetScreenFx("ScreenBlur", 0);
                  self.hitdamagecounter=0;
                end
              end
            end


            -- [lennert] When a loud noise occurs (grenade etc.), the player will be deafened. Client-effect only...
            if (self.deaf_time) then
                --System:LogToConsole("deafened:"..self.deaf_time);

                local fSoundScale=1;

                -- [marco] gives a couple of seconds before starting
                -- the deafness so that the player will ear the explosion
                if (self.deaf_time<(self.initial_deaftime-1.7)) then

                    if (self.deaf_time<self.deafness_fadeout_time) then
                        fSoundScale=self.deaf_time/self.deafness_fadeout_time;
                    end
                    Sound:SetGroupScale(SOUNDSCALE_DEAFNESS, 1-fSoundScale);
                    if (not Sound:IsPlaying(self.EarRinging)) then
                        --System:Log("start ear ringing");
                        Sound:PlaySound(self.EarRinging);
                    end
                    Sound:SetSoundVolume(self.EarRinging, fSoundScale*255);
                end

                self.deaf_time=self.deaf_time-_frametime;
                if (self.deaf_time<=0) then
                    self.deaf_time=nil;
                    Sound:StopSound(self.EarRinging);
                    Sound:SetGroupScale(SOUNDSCALE_DEAFNESS, 1);
                end
            end

            --infos
            %Game:SetHUDFont("hud", "ammo");

            --if(not ClientStuff.vlayers:IsActive("Binoculars") and player.cnt.health>0)then
            --    self:DrawCompass(player);
            --end

            -- display items
            self:DrawItems(player);
            -- display stealth meter
            self:DrawStealthMeter(0,567);
            -- update hud
            self:OnUpdateCommonHudElements();

            -- GOD O METER-------------------------------------------------
            if(god and (tonumber(god)==1))then
                %Game:WriteHudString( 10, 10, "You Wish, Try Harder ",0, 1, 0, 1, 30, 30);
            end

            -- display mission box
            ScoreBoardManager:Render();
        end
    end


    if(player and player.classname=="Player") then
        -- only player gets 'panoramic'.. (there's some bug in renderer, i have to set ONE ZERO blending mode, since blending is not reseted for some reason)
         if(hud_panoramic=="1") then
            %System:DrawImageColorCoords(self.black_dot, 0, 0, 800, tonumber(hud_panoramic_height), 9, 0, 0, 0, 0.5, 0, 0, 1, 1);
            %System:DrawImageColorCoords(self.black_dot, 0, 600-tonumber(hud_panoramic_height), 800, tonumber(hud_panoramic_height), 9, 0, 0, 0, 0.5, 0, 0, 1, 1);
        end

        -- display messages
        self:MessagesBox();
    end
end

-------------------------------------------------------------------------------
-- Available DynamicMusic mood events.
-------------------------------------------------------------------------------
DynamicMusicMoodEvents = {
    Alert = { mood = "Alert",timeout = MM_ALERT_TIMEOUT },
    Suspense = { mood = "Suspense",timeout = MM_SUSPENSE_TIMEOUT },
    NearSuspense = { mood = "NearSuspense",timeout = MM_NEARSUSPENSE_TIMEOUT },
    Combat = { mood = "Combat",timeout = 0 },
    Victory = { mood = "Victory",timeout = 0 }
};

-------------------------------------------------------------------------------
-- Controls moods in dynamic music.
-------------------------------------------------------------------------------
function Hud:UpdateDynamicMusic()
    local sneak = AI:GetPerception();
    local moodEvent = nil;

    --System:Log( "Sneak="..sneak );
    if (sneak > 110) then
        -- if the AI starts attacking we send a COMBAT-mood event
        moodEvent = DynamicMusicMoodEvents.Combat;
    elseif ((sneak > 0 and sneak <= 110) or (self.EnemyAlerted ~= 0)) then
        -- if the AI starts attacking we send a COMBAT-mood event
        moodEvent = DynamicMusicMoodEvents.Alert;
    elseif (self.EnemyInNearSuspense~=0) then
        -- if the AI is very near we send a NEAR-mood event
        moodEvent = DynamicMusicMoodEvents.NearSuspense;
    elseif (self.EnemyInSuspense~=0) then
        -- if the AI is near we send a SUSPENSE-mood event
        moodEvent = DynamicMusicMoodEvents.Suspense;
    end

    if (self.PrevSneakValue) then
        if (self.PrevSneakValue>50) and (sneak==0) and (Sound:IsInMusicMood("Combat") and (self.EnemyAlerted==0)) then
            -- if the sneak value drops instantly from combat to 0 we killed the last guy, so we send a VICTORY-mood event
            --System:Log("VICTORY !!!");
            moodEvent = DynamicMusicMoodEvents.Victory;
        end
    end

    if (moodEvent) then
        Sound:AddMusicMoodEvent( moodEvent.mood,moodEvent.timeout );
    end

    self.PrevSneakValue = sneak;
end


-----------------------------------------------------------------------------
function Hud:OnShutdown()
    %System:Log("Hud:OnShutdown()");
    self.EarRinging=nil;
end
-----------------------------------------------------------------------------
-----------------------------------------------------------------------------